50 PRINT "WHAT I DO.": PRINT TAB( 8)"BY JEFFREY MARRACCINI"
51 VTAB 20: PRINT "PLEASE PRESS A KEY TO START.";: GET R$: HOME : VTAB 5
55 PRINT : PRINT
60 PRINT : PRINT "INSTRUCTIONS-"
70 VTAB 09: PRINT "-------------"
80 PRINT : PRINT " A SCREEN EASILY FILLS WITH DATA- SO WHEN YOU SEE A '@' AT THE SCREEN BOTTOM PRESS A KEY TO CONTINUE."
90 VTAB 23: PRINT "@";: GET A$: VTAB 9: FOR I = 9 TO 23: PRINT " ";: NEXT I
410 HOME : PRINT "==HI-RESOLUTION GRAPHICS==": PRINT " HI-RES. GRAPHICS HAVE MUCH FINER DETAIL, HOWEVER, THERE ARE FEWER COLORS.": VTAB 23: PRINT "@": GET R$:
420 HOME : PRINT " HI-RES. GRAPHICS SCREEN IS INITIALIZEDBY THE APPLESOFT TERM 'HGR' FOR PAGE #1,OR 'HGR2' FOR PAGE #2 (FULL SCREEN).": PRINT : PRINT "PLEASE TYE 'HGR' NOW.": PRINT : INPUT "]";HR$
421 IF HR$ = "HGR" THEN HOME : HGR : VTAB 23: PRINT "THE HI-RES SCREEN. @";: GET R$: TEXT : HOME : GOTO 425
423 IF HR$ < >"HGR" THEN PRINT : PRINT "?SYNTAX ERROR<CTRL-G>: PLEASE TRY AGAIN.": VTAB 23: PRINT "@";: GET R$: GOTO 420
425 PRINT " THE COLOR RANGE IN HI-RES IS FROM 0 TO7. NOW, TO PLOT A POINT IN HI-RES, 1.) YOU MUST SPECIFY A COLOR, WITH 'HCOLOR=X' (X=COLOR NUMBER). 2.) TO SPECIFY A POINT ON THE 279 BY 191 SCREEN. 'HPLOT X,Y' DOES THAT. NOW, YOU TRY."
432 IF HR$ < >"HGR" THEN PRINT : PRINT "SYNTAX ERROR<CTRL-G>:PLEASE TRY AGAIN.": VTAB 23: PRINT "@";: GET R$: GOTO 425
433 HOME : VTAB 21: PRINT "NOW ENTER 'HCOLOR=3' (WHITE)": INPUT "]";CL$
434 IF CL$ = "HCOLOR=3" THEN HCOLOR= 3: GOTO 436
435 IF CL$ < >"HCOLOR=3" THEN HOME : VTAB 21: PRINT "?SYNTAX ERROR<CTRL-G>:PLEASE TRY AGAIN.": VTAB 23: PRINT "@";: GET R$: GOTO 433
436 HOME : VTAB 23: PRINT "NOW ENTER 'HPLOT 0,0'": INPUT "]";HP$
440 IF HP$ = "HPLOT 0" THEN HPLOT 0,0: GOTO 450
445 IF HP$ < >"HPLOT 0,0" THEN HOME : VTAB 21: PRINT "?SYNTAX ERROR<CTRL-G>: PLEASE TRY AGAIN.": VTAB 23: PRINT "@";: GET R$: GOTO 436
450 HOME : VTAB 21: PRINT "PRETTY SMALL POINT! !": VTAB 23: PRINT "@";: GET R$: HOME : VTAB 21: PRINT "NOW TO DRAW A LINE FROM THAT POINT.": HPLOT 0,0 TO 279,0
455 VTAB 23: PRINT "@";: GET R$: TEXT : HOME : PRINT "THE COMMAND TO DRAW A LINE IS 'HPLOT X,Y TO X,Y'. BY CHAINING HPLOT TO'S YOU CAN DRAW AS MANY LINES AS YOU WANT.": VTAB 23: PRINT "@";: GET R$: HOME
460 TEXT : HOME : PRINT " NEXT: A SIMPLE PROGRAM EXAMPLE IN BASIC. FULL DETAILS ARE IN THE APPLESOFTMANUALS.": PRINT : PRINT "(PLEASE PRESS A KEY)";: GET R$: HOME
463 PRINT "APPLESOFT PROGRAM TO DRAW A BORDER.": PRINT : SPEED= 25: PRINT "]10 HGR:REM SET UP HI-RES GRAPHICS": PRINT : PRINT "]20 HCOLOR=3:REM HI-RES COLOR <WHITE>"
465 PRINT : PRINT "]30 HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0:REM DRAW THE BORDER IN THE CORNERS
466 VTAB 23: PRINT "@";: GET R$: VTAB 10
470 PRINT : PRINT "]RUN": SPEED= 255: HGR : HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0: VTAB 23: PRINT "@";: GET R$:
475 : TEXT : HOME : PRINT " PRETTY SIMPLE! HI-RES GRAPHICS SEEM HARD, BUT ARE NOT. FULL INSTRUCTIONS AREIN THE APPLESOFT MANUALS.": VTAB 23: PRINT "@";: GET R$: HOME
480 HOME : PRINT " NOW TO GIVE THE FULL COLOR RANGE OF THE APPLE II, WITH LO-RES COLORS FIRST.": VTAB 23: PRINT "@";: GET R$: GR
491 REM COLOR BAR MINI-PROGRAM
492 HOME : FOR I = 0 TO 31: COLOR= I/2: VLIN 0,39 AT I: NEXT I: FOR I = 0 TO 14 STEP 2: PRINT TAB( I *2 +1);I;: NEXT I
493 PRINT : FOR I = 1 TO 15 STEP 2: PRINT TAB( I *2 +1);I;: NEXT I
494 PRINT : PRINT "STANDARD APPLE LO-RES COLOR BARS. @";: GET R$: TEXT : HOME
500 TEXT : HOME : PRINT " NOW THE HI-RES COLORS.": VTAB 23: PRINT "@";: GET R$: HGR : HOME : VTAB 21: HCOLOR= 0: FOR I = 0 TO 39: HPLOT I,0 TO I,159: NEXT I
505 : FOR I = 40 TO 75: HCOLOR= 1: HPLOT I,0 TO I,159: NEXT : FOR I = 76 TO 76 +35: HCOLOR= 2: HPLOT I,0 TO I,159: NEXT I: FOR I = 76 +35 +1 TO 76 +35 +1 +35: HCOLOR= 3: HPLOT I,0 TO I,159: NEXT I
510 FOR I = 148 TO 148 +35: HCOLOR= 4: HPLOT I,0 TO I,159: NEXT I: FOR I = 148 +35 +1 TO 148 +35 +1 +35: HCOLOR= 5: HPLOT I,0 TO I,159: NEXT I
515 FOR I = 219 TO 219 +35: HCOLOR= 6: HPLOT I,0 TO I,159: NEXT I: FOR I = 219 +35 +1 TO 279: HCOLOR= 7: HPLOT I,0 TO I,159: NEXT I
520 PRINT "COLORS=": PRINT " 0 1 2 3 4 5 6 7"
525 PRINT "@";: GET R$: TEXT : HOME
526 TEXT : HOME : PRINT " NOW ANOTHER TREAT: A HI-RES PICTURE BYME.": VTAB 23: PRINT "@";: GET R$: HGR : HOME : HCOLOR= 0: FOR I = 0 TO 60: HPLOT 0,I TO 279,I: NEXT I
535 : FOR I = 1 TO 400: HPLOT RND(1) *279, RND(1) *127: HCOLOR= 3: NEXT I
540 HCOLOR= 2: HPLOT 0,127 TO 60,140 TO 100,150 TO 139,159 TO 179,150 TO 279,127
545 HPLOT 138,159 TO 138,137: HPLOT 139,137 TO 129,127: HPLOT 139,137 TO 149,127
548 FOR R = 1 TO 6
549 VTAB 21: PRINT "A RADIO TELESCOPE: LOOKING AND SENDING MESSAGES INTO THE STARS AND CONTROLLED BY ME!"
550 FOR I = 159 TO 0 STEP -1: HCOLOR= 5: HPLOT 137,I TO 137,I +5: HCOLOR= 0: HPLOT 137,I TO 137,I +5: NEXT I
555 NEXT R
556 VTAB 23: HTAB 37: PRINT "@";: GET R$: TEXT : HOME
50000 TEXT : HOME : GR : COLOR= 3: HLIN 0,39 AT 0: HLIN 0,39 AT 39: VLIN 0,39 AT 0: VLIN 0,39 AT 39
50010 FOR I = 1 TO 38: COLOR= 2: HLIN 1,38 AT I: NEXT I
50020 HCOLOR= 5: FOR I = 0 TO 159: HPLOT 0,I TO 279,I: NEXT I: TEXT : HOME : PRINT "YOU GRADUATED! ! ! ! ! ! ! ! ! ! ! ! ! !"
50030 FOR F = 1 TO 60: POKE -16304,0: POKE -16297,0: POKE -16303,0: NEXT F
50035 FOR D = 1 TO 100
50040 POKE -16304,0: POKE -16298,0: POKE -16303,0: NEXT D
50045 PRINT "@";: GET R$: TEXT : HOME : PRINT "THAT WAS ACCOMPLISHED BY FLIPPING BETWEEN HI-RES, LO-RES, AND TEXT PAGES VERY FAST.": VTAB 23: PRINT "@";: GET R$: HOME
50050 VTAB 23: PRINT "@";: GET R$: HOME : PRINT "OPTIONS:": PRINT : PRINT TAB( 4)"A. START THIS PROGRAM OVER.": PRINT TAB( 4)"B. QUIT AND GO TO SLEEP.": PRINT : PRINT "PLEASE ENTER CODE LETTER ->";: GET OT$
50051 IF OT$ = "A" THEN PRINT : PRINT CHR$(4)"NOMON I,O,C": PRINT : PRINT CHR$(4)"RUN WHAT I DO PART1"
50052 IF OT$ = "B" THEN HOME : PRINT "GOOD NIGHT! ! ! !": END
50053 IF OT$ < >"B" THEN PRINT : PRINT "?REENTER<CTRL-G>: USE A OR B ONLY.": GOTO 50050
